/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_10 / modeconv / programs / testbed

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 3e 54 45 | 53 54 42 45 44 0d 00 14 |.....>TE|STBED...|
|00000010| 43 f4 20 50 72 6f 67 72 | 61 6d 20 74 65 73 74 73 |C. Progr|am tests|
|00000020| 20 6f 75 74 20 4d 37 4d | 34 20 61 6e 64 20 4d 37 | out M7M|4 and M7|
|00000030| 4d 39 20 73 63 72 65 65 | 6e 20 63 6f 6e 76 65 72 |M9 scree|n conver|
|00000040| 73 69 6f 6e 73 2f 70 72 | 69 6e 74 64 75 6d 70 73 |sions/pr|intdumps|
|00000050| 0d 00 1e 3d f4 20 74 68 | 65 73 65 20 75 74 69 6c |...=. th|ese util|
|00000060| 69 74 69 65 73 20 63 6f | 6e 76 65 72 74 20 61 20 |ities co|nvert a |
|00000070| 6d 6f 64 65 20 37 20 73 | 63 72 65 65 6e 20 74 6f |mode 7 s|creen to|
|00000080| 20 6d 6f 64 65 20 34 20 | 6f 72 20 39 2c 0d 00 28 | mode 4 |or 9,..(|
|00000090| 44 f4 20 61 6e 64 20 74 | 68 65 6e 20 63 61 6c 6c |D. and t|hen call|
|000000a0| 20 74 68 65 20 70 72 69 | 6e 74 64 75 6d 70 20 67 | the pri|ntdump g|
|000000b0| 69 76 65 6e 20 61 73 20 | 61 20 70 61 72 61 6d 65 |iven as |a parame|
|000000c0| 74 65 72 2c 45 47 20 48 | 61 72 64 63 6f 70 79 46 |ter,EG H|ardcopyF|
|000000d0| 58 0d 00 32 0b f2 6d 37 | 6c 6f 61 64 0d 00 3c 0a |X..2..m7|load..<.|
|000000e0| f2 70 72 69 6e 74 0d 00 | 46 10 db 3a f1 22 54 48 |.print..|F..:."TH|
|000000f0| 45 20 45 4e 44 22 0d 00 | 50 05 e0 0d 00 5a 05 3a |E END"..|P....Z.:|
|00000100| 0d 00 64 25 dd f2 6d 37 | 6c 6f 61 64 20 3a f4 20 |..d%..m7|load :. |
|00000110| 6c 6f 61 64 73 20 61 20 | 6d 6f 64 65 20 37 20 73 |loads a |mode 7 s|
|00000120| 63 72 65 65 6e 0d 00 6e | 06 eb 37 0d 00 78 12 e8 |creen..n|..7..x..|
|00000130| 22 46 69 6c 65 6e 61 6d | 65 20 22 46 24 0d 00 82 |"Filenam|e "F$...|
|00000140| 05 db 0d 00 8c 0a 48 3d | 8e 20 46 24 0d 00 96 22 |......H=|. F$..."|
|00000150| e7 20 48 3d 30 20 f1 22 | 46 69 6c 65 20 22 46 24 |. H=0 ."|File "F$|
|00000160| 22 20 6e 6f 74 20 66 6f | 75 6e 64 22 3a e0 0d 00 |" not fo|und":...|
|00000170| a0 0b e3 59 3d 30 b8 32 | 34 0d 00 aa 0b e3 58 3d |...Y=0.2|4.....X=|
|00000180| 30 b8 33 39 0d 00 b4 09 | 56 3d 9a 23 48 0d 00 be |0.39....|V=.#H...|
|00000190| 18 e7 20 ac 28 28 59 3d | 32 34 29 80 28 58 3d 33 |.. .((Y=|24).(X=3|
|000001a0| 39 29 29 ef 56 0d 00 c8 | 05 ed 0d 00 d2 05 ed 0d |9)).V...|........|
|000001b0| 00 dc 07 d9 23 30 0d 00 | e6 05 e1 0d 00 f0 05 3a |....#0..|.......:|
|000001c0| 0d 00 fa 0b dd f2 70 72 | 69 6e 74 0d 01 04 07 ea |......pr|int.....|
|000001d0| 20 85 0d 01 0e 1b ee 85 | 20 ea 20 f1 8a 30 2c 32 | .......| . ..0,2|
|000001e0| 34 29 f6 24 3a ef 37 3a | 4b 3d a5 3a e1 0d 01 18 |4).$:.7:|K=.:....|
|000001f0| 46 f4 20 61 6d 65 6e 64 | 20 6e 65 78 74 20 6c 69 |F. amend| next li|
|00000200| 6e 65 20 61 73 20 64 65 | 73 69 72 65 64 2e 20 45 |ne as de|sired. E|
|00000210| 47 20 2a 4d 37 4d 34 20 | 48 41 52 44 43 4f 50 59 |G *M7M4 |HARDCOPY|
|00000220| 46 58 2c 20 2a 4d 37 4d | 39 20 57 41 49 54 2c 20 |FX, *M7M|9 WAIT, |
|00000230| 65 74 63 0d 01 22 38 f4 | 20 64 75 6d 6d 79 20 70 |etc.."8.| dummy p|
|00000240| 72 69 6e 74 64 75 6d 70 | 20 2a 57 41 49 54 20 6d |rintdump| *WAIT m|
|00000250| 65 72 65 6c 79 20 77 61 | 69 74 73 20 66 6f 72 20 |erely wa|its for |
|00000260| 61 20 6b 65 79 20 70 72 | 65 73 73 0d 01 2c 0e 2a |a key pr|ess..,.*|
|00000270| 4d 37 4d 34 20 57 41 49 | 54 0d 01 36 07 4b 3d a5 |M7M4 WAI|T..6.K=.|
|00000280| 0d 01 40 05 e1 0d 01 4a | 05 3a 0d 01 54 3e dd f2 |..@....J|.:..T>..|
|00000290| 6d 37 73 61 76 65 20 3a | f4 20 73 61 76 65 73 20 |m7save :|. saves |
|000002a0| 61 20 63 75 72 72 65 6e | 74 20 6d 6f 64 65 20 37 |a curren|t mode 7|
|000002b0| 20 73 63 72 65 65 6e 20 | 74 6f 20 66 69 6c 65 20 | screen |to file |
|000002c0| 27 6d 37 73 61 76 65 27 | 0d 01 5e 0f 48 3d ae 22 |'m7save'|..^.H=."|
|000002d0| 6d 37 73 61 76 65 22 0d | 01 68 0b e3 59 3d 30 b8 |m7save".|.h..Y=0.|
|000002e0| 32 34 0d 01 72 0b e3 58 | 3d 30 b8 33 39 0d 01 7c |24..r..X|=0.39..||
|000002f0| 24 e7 20 ac 28 28 59 3d | 32 34 29 80 28 58 3d 33 |$. .((Y=|24).(X=3|
|00000300| 39 29 29 20 d5 23 48 2c | a4 67 65 74 28 58 2c 59 |9)) .#H,|.get(X,Y|
|00000310| 29 0d 01 86 05 ed 0d 01 | 90 05 ed 0d 01 9a 07 d9 |).......|........|
|00000320| 23 48 0d 01 a4 05 e1 0d | 01 ae 05 3b 0d 01 b8 0e |#H......|...;....|
|00000330| dd a4 67 65 74 28 58 2c | 59 29 0d 01 c2 0b ef 33 |..get(X,|Y).....3|
|00000340| 31 2c 58 2c 59 0d 01 cc | 19 c8 99 20 22 4f 53 5f |1,X,Y...|... "OS_|
|00000350| 42 79 74 65 22 2c 31 33 | 35 20 b8 20 2c 63 0d 01 |Byte",13|5 . ,c..|
|00000360| d6 06 3d 63 0d ff       |                         |..=c..  |        |
+--------+-------------------------+-------------------------+--------+--------+